Eagles Nest BBS 5/Eagles_Nest_Mac_Collection_Disc_5.TOAST/7th-College/LearnSpan#2/English_Spanish II 1.05/background_2699.txt

Text File | 1990-03-27 | 11KB | 485 lines

-- background: 2699 from stack: in.05
-- bmap block id: 3167
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on mouseDown
  global showAnswers,reverse

  if not showAnswers then
    if reverse then
      set visible of bkgnd field "Source" to false
      set visible of bkgnd field "Translation" to true
    else
      set visible of bkgnd field "Source" to true
      set visible of bkgnd field "Translation" to false
    end if
  end if
end mouseDown

function jumpWithinLimits loBottom,hiBottom,loTop,hiTop,skip
global offset
if not skip then
  put (the random of (hiTop - loBottom + 1) + offset + loBottom - 1) into landingCard
else
  put the random of 2 into switch
  put (the random of (hiBottom - loBottom + 1) + offSet + loBottom - 1) into temp
  put (the random of (hiTop - loTop + 1) + offSet + loTop -1) into temp2
  if switch is 1 then put temp into landingCard
  else put temp2 into landingCard
end if
return landingCard
end jumpWithinLimits

function groupBounds
global A,B,C,D,minA,maxA,minB,maxB,minC,maxC,minD,maxD
put false into skip
if A then
  put minA into loBottom
  if B then
    if C then
      if D then put maxD into hiTop       --ABCD
      else put maxC into hiTop            --ABCD'
    else
      if D then
        put true into skip
        put maxB into hiBottom
        put minD into loTop
        put maxD into hiTop              --ABC'D
      else put maxB into hiTop           --ABC'D'
    end if
  else
    if C then
      if D then
        put true into skip               --AB'CD
        put maxA into hiBottom
        put minC into loTop
        put maxD into hiTop
      else
        put true into skip               --AB'CD'
        put maxA into hiBottom
        put minC into loTop
        put maxC into hiTop
      end if
    else
      if D then
        put true into skip
        put maxA into hiBottom
        put minD into loTop
        put maxD into hiTop             --AB'C'D
      else put maxA into hiTop          --AB'C'D'
    end if
  end if
else
  put minB into loBottom
  if B then
    if C then
      if D then put maxD into hiTop     --A'BCD
      else put maxC into hiTop          --A'BCD'
    else
      if D then
        put true into skip              --A'BC'D
        put maxB into hiBottom
        put minD into loTop
        put maxD into hiTop
      else put maxB into hiTop          --A'BC'D'
    end if
  else
    put minC into loBottom
    if C then
      if D then put maxD into hiTop     --A'B'CD
      else put maxC into hiTop          --A'B'CD'
    else
      put minD into loBottom
      if D then put maxD into hiTop     --A'B'C'D
    end if
  end if
end if
put loBottom into item 1 of bounds
put hiBottom into item 2 of bounds
put loTop into item 3 of bounds
put hiTop into item 4 of bounds
put skip into item 5 of bounds
return bounds
end groupBounds

on arrowKey direction
  if direction is "right" then
    click at loc of bkgnd button "Next"
  else
    click at loc of bkgnd button "Prev"
  end if
end arrowKey




-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=1 top=0 right=341 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Answer Button
----- HyperTalk script -----
on mouseDown
  global reverse,lastClick
  if the seconds - lastClick < 2 then exit mouseDown
  if not reverse then
    show field "Translation"
  else
    show field "Source"
  end if
end MouseDown

on mouseUp
  global scanRate,A,B,C,D,showAnswers,reverse,lastClick
  if the seconds - lastClick < 2 then
    exit mouseUp
  else
    put the seconds into lastClick
    wait scanRate div 2 seconds
    if not showAnswers then
      if not reverse then
        hide field "Translation"
      else
        hide field "Source"
      end if
    end if
    set lockScreen to true
    click at 282,296
    set lockScreen to false
  end if
end mouseUp



-- part 6 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=414 top=99 right=119 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Index Number


-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=261 top=276 right=317 bottom=302
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  global A,B,C,D,minA,maxA,minB,maxB,minC,maxC,minD,maxD,offset,inOrder

  get groupBounds()
  put item 1 of it into loBottom
  put item 2 of it into hiBottom
  put item 3 of it into loTop
  put item 4 of it into hiTop
  put item 5 of it into skip

  if inOrder then
    if bkgnd field "Index Number" is hiTop then
      go card (loBottom + offset)
    else
      if not skip then
        go next card of this background
      else
        if bkgnd field "Index Number" is hiBottom then
          go card (loTop + offset)
        else go next card of this background
      end if
    end if
  else go card jumpWithinLimits(loBottom,hiBottom,loTop,hiTop,skip)
end mouseUp





-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=195 top=276 right=317 bottom=239
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  global A,B,C,D,minA,maxA,minB,maxB,minC,maxC,minD,maxD,offset,inOrder

  get groupBounds()
  put item 1 of it into loBottom
  put item 2 of it into hiBottom
  put item 3 of it into loTop
  put item 4 of it into hiTop
  put item 5 of it into skip

  if inOrder then
    if bkgnd field "Index Number" is loBottom then
      go card (hiTop + offset)
    else
      if not skip then
        go previous card of this background
      else
        if bkgnd field "Index Number" is loTop then
          go card (hiBottom + offset)
        else
          go previous card of this background
        end if
      end if
    end if
  else go card jumpWithinLimits(loBottom,hiBottom,loTop,hiTop,skip)
end mouseUp



-- part 18 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=18 top=197 right=230 bottom=247
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Source


-- part 19 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=255 top=197 right=230 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Translation


-- part 23 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=418 top=44 right=75 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scan Cards
----- HyperTalk script -----
on mouseUp
  global scanRate,delayTime,scanRate,scanReverse,reverse,showAnswers
  repeat until the mouseClick
    if delayTime and not showAnswers then
      put scanRate div 2 into delay
      put delay + 1 into delay
      wait delay seconds
      if not reverse then
        show field "Translation"
        wait scanRate seconds
        hide field "Translation"
      else
        show field "Source"
        wait scanRate seconds
        hide field "Source"
      end if
      if not scanReverse then click at the loc of bkgnd button "Next"
      else click at the loc of bkgnd button "Prev"
    else
      wait scanRate seconds
      if not scanReverse then click at the loc of bkgnd button "Next"
      else click at the loc of bkgnd button "Prev"
    end if
  end repeat
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=159 top=44 right=75 bottom=218
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Options
----- HyperTalk script -----
on mouseUp
  go card 2
end mouseUp



-- part 29 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=117 top=44 right=75 bottom=157
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Intro
----- HyperTalk script -----
on mouseUp
  go card 1
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=83 top=44 right=75 bottom=115
-- title width / last selected line: 0
-- icon id / first selected line: 25002 / 25002
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  go card 3
end mouseUp



-- part 32 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=15 top=44 right=75 bottom=45
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go home
end mouseUp



-- part 34 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=376 top=44 right=75 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find
----- HyperTalk script -----
on mouseUp
  ask "Find: " with "Enter a word or phrase or card number"
  set visible of bkgnd field "Source" to true
  set visible of bkgnd field "Translation" to true
  find whole it
end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=446 top=276 right=317 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Back
----- HyperTalk script -----
on mouseUp
  go back
end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=47 top=44 right=75 bottom=81
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  doMenu "quit hyperCard"
end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=18 top=277 right=315 bottom=59
-- title width / last selected line: 0
-- icon id / first selected line: 30557 / 30557
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: First
----- HyperTalk script -----
on mouseUp
  --FlashStack Version
  global offset
  go card firstGroup() + offset
end mouseUp